home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / GRAPH10G.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  640 b   |  24 lines
  1. 10  '**********************************
  2. 20  '**         GRAPH10G             **
  3. 30  '**********************************
  4. 40  SCREEN 2:KEY OFF:CLS:DIM A(31,31)
  5. 60  FOR Y = -15 TO 15
  6. 70  FOR X = -15 TO 15
  7. 80  IF Y = 0 THEN 110
  8. 90  F = (X MOD Y) / 15
  9. 100  A(X+16,Y+16)=F
  10. 110  NEXT X
  11. 120  NEXT Y
  12. 130  FOR X = 1 TO 31 : FOR Y = 1 TO 31
  13. 140  VALUE = A(X,Y)
  14. 150  XPOS = (X*10) + 50 + (Y*5)
  15. 160  YPOS = (Y*4) + 30 + VALUE*45
  16. 170  IF Y = 1 THEN LINE (XPOS,YPOS)-(XPOS,YPOS) ELSE LINE -(XPOS,YPOS)
  17. 180  NEXT Y,X
  18. 230  FOR Y = 1 TO 31 : FOR X = 1 TO 31
  19. 240  VALUE = A(X,Y)
  20. 250  XPOS = (X*10) + 50 + (Y*5)
  21. 260  YPOS = (Y*4) + 30 + VALUE*45
  22. 270  IF X = 1 THEN LINE (XPOS,YPOS)-(XPOS,YPOS) ELSE LINE -(XPOS,YPOS)
  23. 280  NEXT X,Y
  24.